home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00127_Pour Meter Button.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.0 KB  |  58 lines
  1. property pSpr, pOrigMember, pRollMember, pDownMember, pTimer, pSupressRoll
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMember = pSpr.member
  6.   pRollMember = nextMember(pOrigMember, 1)
  7.   pDownMember = nextMember(pOrigMember, 2)
  8.   if inMixingMode() then
  9.     setCursor(pSpr, pointingHand())
  10.   else
  11.     setCursor(pSpr, noGood())
  12.   end if
  13. end
  14.  
  15. on endSprite
  16.   setCursor(pSpr, defaultCursor())
  17. end
  18.  
  19. on mouseUp
  20.   if the doubleClick then
  21.     exit
  22.   end if
  23.   togglePourWindow()
  24. end
  25.  
  26. on mouseDown me
  27.   replaceDraggingAnything()
  28.   pSupressRoll = 1
  29.   if the doubleClick then
  30.     exit
  31.   end if
  32.   pSpr.member = pDownMember
  33.   clickSound()
  34.   updateStage()
  35. end
  36.  
  37. on mouseEnter me
  38.   rememberActiveBottle()
  39.   pSpr.member = pRollMember
  40.   showToolTip(pSpr, #pourmeteronoff)
  41.   pTimer = nowTicks()
  42. end
  43.  
  44. on mouseLeave me
  45.   pSupressRoll = 0
  46.   restoreActiveBottle()
  47.   pSpr.member = pOrigMember
  48.   hideToolTip()
  49. end
  50.  
  51. on mouseWithin
  52.   if tipTickRange(pTimer) and not pSupressRoll then
  53.     forceToolTip(pSpr, #pourmeteronoff)
  54.   else
  55.     dismissToolTip()
  56.   end if
  57. end
  58.